#!/usr/bin/perl -w


#  FILE:   addDes.pl
#  AUTHOR: JOSE A. ESQUIVEL SALAS
#  DATE:   20/04/01
#
#  DESCRIPTION: Manda archivos al servidor KnowCat.


require ("init.pl");

#imprimir cabecera
&print_header;

#Se obtiene la BdD
if ('GET' eq $ENV{'REQUEST_METHOD'})
{
  #Se procesa la entrada al script
    %input = &parse_input;
  #Se inicializa contador de registros
    $n = $input{n};
}



print <<EOF1;
    <HTML>
           <HEAD><TITLE></TITLE></HEAD>
    <BODY>
           <P>$n
    </BODY>
    </HTML>
EOF1
    ;
